prolog './g128x5.ijs'
NB. 128!:5 --------------------------------------------------------------

isnan=: 128!:5

(($x)$0) -: isnan x=: 31 17 3 ?@$ 2
(($x)$0) -: isnan x=: 31    3 ?@$ 2e9
(($x)$0) -: isnan x=: 31      ?@$ 0
(($x)$0) -: isnan x=: j./2 31 ?@$ 0
(($x)$0) -: isnan x=: 31 17   ?@$ 200x
(($x)$0) -: isnan x=: % /2 31 ?@$ 20x
(($x)$0) -: isnan x=: 'Barack Obama vs. Hillary Clinton'
(($x)$0) -: isnan x=: ;:'John McCain'

(($x)$0) -: isnan x=: _ __ 567
(($x)$0) -: isnan x=: _ __ 5j7

((i.#x) e. i) -: isnan _.      (i=: 100 ?@$ #x)}x=: 1e4 ?@$ 0
((i.#x) e. i) -: isnan (<_.  ) (i=: 100 ?@$ #x)}x=: 1e4 $ a:
((i.#x) e. i) -: isnan (<<<_.) (i=: 100 ?@$ #x)}x=: 1e4 $ a:

1 = isnan <^:10 ] _.
0 = isnan <20 ?@$ 2
0 = isnan <20 ?@$ 2e9
0 = isnan <'abc'
0 = isnan <'abc';(<0 2$a:)

x=: 1e6 ?@$ 0
b=: (#x) ?@$ 2
x=: (-~0j1)+_. (I.b)}x
b -: isnan x

0 1 0 -: 128!:5 (11) c. 0 _. 5
0 0 0 1 0 -: 128!:5 (11) c. 0 3 4 _. 5
0 1 0 -: 128!:5 ] 0;(11 c. _.);5
0 1 0 -: 128!:5 ] 0;(11 c. 0 0 0 0 0 0 _.);5


'valence error' -: 0 (128!:5) etx 3 4 5
'valence error' -: 1 (128!:5) etx 3 4 5

NB. [x] 128!:8 y   hashing --------------------------------------------------------------
('') -: $ (128!:8) 0
('') -: $ (128!:8) 1
('') -: $ (128!:8) 2
('') -: $ (128!:8) 5.5 
('') -: $ (128!:8) 4j7.2
('') -: $ (128!:8) <123
('') -: $ (128!:8) 6x 
('') -: $ (128!:8) 5r3
('') -: $ (128!:8) 2 u: 'a'
('') -: $ (128!:8) 10 u: 'd'
('') -: $ (128!:8) 0 1 0 1
('') -: $ (128!:8) i. 10
('') -: $ (128!:8) i: 2.2j10
('') -: $ (128!:8) ('a';5;7.8) , <"1 i. 3 4 5
('') -: $ (128!:8) i. 22x
('') -: $ (128!:8) 5 %~ i. 22x

100 ([ (> *. 0 <: ]) (128!:8)) 0
100 ([ (> *. 0 <: ]) (128!:8)) 1
100 ([ (> *. 0 <: ]) (128!:8)) 2
100 ([ (> *. 0 <: ]) (128!:8)) 5.5 
100 ([ (> *. 0 <: ]) (128!:8)) 4j7.2
100 ([ (> *. 0 <: ]) (128!:8)) <123
100 ([ (> *. 0 <: ]) (128!:8)) 6x 
100 ([ (> *. 0 <: ]) (128!:8)) 5r3
100 ([ (> *. 0 <: ]) (128!:8)) 2 u: 'a'
100 ([ (> *. 0 <: ]) (128!:8)) 10 u: 'd'
100 ([ (> *. 0 <: ]) (128!:8)) 0 1 0 1
100 ([ (> *. 0 <: ]) (128!:8)) i. 10
100 ([ (> *. 0 <: ]) (128!:8)) i: 2.2j10
100 ([ (> *. 0 <: ]) (128!:8)) ('a';5;7.8) , <"1 i. 3 4 5
100 ([ (> *. 0 <: ]) (128!:8)) i. 22x
100 ([ (> *. 0 <: ]) (128!:8)) 5 %~ i. 22x




epilog''

